0 rem ** gold digger by rudi **
1 fori=0to10:readq:poke679+i,q:nexti
2 data 120,214,112,214,112,239,32,208,76,168,2
3 sys679

